Option Explicit
Sub N_Sample007()
    Dim myStr As String
    myStr = "N_Sample007_1"
    Application.Run myStr
End Sub

'QIsX{
Sub N_Sample007_1()
    MsgBox "N_Sample007_1"
End Sub
